home *** CD-ROM | disk | FTP | other *** search
- 0 POKE3280,14:POKE46,14:POKE53281,6:PRINT"[147] *** - LOADING/CHECKING DATA - ***"
- 1 DIMEA(20):C1=0:DL=100:IN=1:LE=51:Q=8:AD=52832:DEFFNA(Z)=DL+(X*IN)
- 2 FORX=0TOLE:CS=0:FORC=0TOQ-1:READD:CS=CS+D
- 3 IFD<256THEN6
- 4 IFC=Q-1THENPRINT"[147] DATA QUANTITY ERROR IN LINE:-"FNA(Z):STOP
- 5 EA(C1)=FNA(Z):C1=C1+1
- 6 POKEAD+X*Q+C,D:NEXT
- 7 READD:IFD<>CSTHENEA(C1)=FNA(Z):C1=C1+1
- 8 NEXT
- 9 X=C1:IFC1=0THENPRINT"[147] DATA IS ERROR FREE":GOTO12
- 10 PRINT"[147]DATA ERROR LIST"
- 11 FORC=0TOX:PRINTEA(C)"*";:NEXT
- 12 REM *** TO CALL FROM WITHIN BASIC PROGRAM - USE SYS52832
- 13 REM *** TO CALL FROM WITHIN MACHIN LANGUAGE PROGRAMS - USE JSR $CE60
- 14 END
- 100 DATA32,168,206,32,178,206,32,200,1054
- 101 DATA206,32,91,207,169,29,160,208,1102
- 102 DATA32,149,206,32,127,207,169,23,945
- 103 DATA160,208,32,149,206,32,127,207,1121
- 104 DATA169,28,160,208,32,149,206,32,984
- 105 DATA127,207,169,16,160,208,32,149,1068
- 106 DATA206,32,127,207,96,141,128,207,1144
- 107 DATA141,146,207,141,172,207,140,129,1283
- 108 DATA207,140,147,207,140,173,207,96,1317
- 109 DATA160,44,169,0,153,191,207,136,1060
- 110 DATA16,250,162,7,160,15,185,0,795
- 111 DATA208,157,175,207,136,185,0,208,1276
- 112 DATA157,183,207,202,136,16,239,96,1236
- 113 DATA160,0,185,175,207,141,199,207,1274
- 114 DATA185,183,207,141,208,207,185,39,1355
- 115 DATA208,141,217,207,185,248,7,141,1354
- 116 DATA226,207,185,236,207,141,235,207,1644
- 117 DATA162,8,189,191,207,221,190,207,1375
- 118 DATA240,5,144,3,32,0,207,202,833
- 119 DATA208,240,200,192,8,208,203,96,1355
- 120 DATA189,190,207,141,252,207,189,191,1566
- 121 DATA207,157,190,207,173,252,207,157,1550
- 122 DATA191,207,189,199,207,141,252,207,1593
- 123 DATA189,200,207,157,199,207,173,252,1584
- 124 DATA207,157,200,207,189,208,207,141,1516
- 125 DATA252,207,189,209,207,157,208,207,1636
- 126 DATA173,252,207,157,209,207,189,217,1611
- 127 DATA207,141,252,207,189,218,207,157,1578
- 128 DATA217,207,173,252,207,157,218,207,1638
- 129 DATA189,226,207,141,252,207,189,227,1638
- 130 DATA207,157,226,207,173,252,207,157,1586
- 131 DATA227,207,96,160,0,162,0,189,1041
- 132 DATA200,207,153,0,208,200,189,191,1348
- 133 DATA207,153,0,208,189,209,207,157,1330
- 134 DATA39,208,189,218,207,157,248,7,1273
- 135 DATA232,200,192,16,208,225,96,173,1342
- 136 DATA0,16,240,42,201,255,240,38,1032
- 137 DATA160,0,140,252,207,185,227,207,1378
- 138 DATA170,173,0,16,74,202,16,252,903
- 139 DATA144,9,173,252,207,25,244,207,1261
- 140 DATA141,252,207,200,192,8,208,229,1437
- 141 DATA173,252,207,141,0,16,96,0,885
- 142 DATA0,0,0,0,0,0,0,0,0
- 143 DATA0,0,0,0,0,0,0,0,0
- 144 DATA0,0,0,0,0,0,0,0,0
- 145 DATA0,0,0,0,0,0,0,0,0
- 146 DATA0,0,0,0,0,0,0,0,0
- 147 DATA0,0,0,0,0,0,0,0,0
- 148 DATA0,0,0,0,0,0,0,0,0
- 149 DATA0,0,0,0,0,1,2,3,6
- 150 DATA4,5,6,7,1,2,4,8,37
- 151 DATA16,32,64,128,0,0,251,251,742
-